<script>on mouseUpExport_Namesend mouseUpOn Export_Namesput empty into ListXrepeat with i = 1 to 25go card iPut bg fld "Header" & return after ListXend repeatgo stack xDoMenu "New Card"put ListX into bg fld "Portfolios"Put "Top 25" into bg fld "edition"end Export_Names</script>